home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic 6.0 Utilities / Multi-Language Add-In for Visual Basic 6.0 / MultiLang.msi / _AF3F81A24EF811D5BEBE0020182C1E5C (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-31  |  5.7 KB  |  170 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4716
  5.    ClientLeft      =   36
  6.    ClientTop       =   36
  7.    ClientWidth     =   7476
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4716
  13.    ScaleWidth      =   7476
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Visible         =   0   'False
  17.    Begin VB.Frame fraMainFrame 
  18.       Height          =   4590
  19.       Left            =   45
  20.       TabIndex        =   0
  21.       Top             =   -15
  22.       Width           =   7380
  23.       Begin VB.PictureBox picLogo 
  24.          Height          =   2385
  25.          Left            =   510
  26.          Picture         =   "frmSplash.frx":0000
  27.          ScaleHeight     =   2340
  28.          ScaleWidth      =   1764
  29.          TabIndex        =   2
  30.          Top             =   855
  31.          Width           =   1815
  32.       End
  33.       Begin VB.Label lblLicenseTo 
  34.          Alignment       =   1  'Right Justify
  35.          Caption         =   "LicenseTo"
  36.          Height          =   255
  37.          Left            =   270
  38.          TabIndex        =   1
  39.          Tag             =   "LicenseTo"
  40.          Top             =   300
  41.          Width           =   6855
  42.       End
  43.       Begin VB.Label lblProductName 
  44.          AutoSize        =   -1  'True
  45.          Caption         =   "Product"
  46.          BeginProperty Font 
  47.             Name            =   "MS Sans Serif"
  48.             Size            =   31.2
  49.             Charset         =   0
  50.             Weight          =   700
  51.             Underline       =   0   'False
  52.             Italic          =   0   'False
  53.             Strikethrough   =   0   'False
  54.          EndProperty
  55.          Height          =   768
  56.          Left            =   2676
  57.          TabIndex        =   9
  58.          Tag             =   "Product"
  59.          Top             =   1200
  60.          Width           =   2304
  61.       End
  62.       Begin VB.Label lblCompanyProduct 
  63.          AutoSize        =   -1  'True
  64.          Caption         =   "CompanyProduct"
  65.          BeginProperty Font 
  66.             Name            =   "MS Sans Serif"
  67.             Size            =   18
  68.             Charset         =   0
  69.             Weight          =   700
  70.             Underline       =   0   'False
  71.             Italic          =   0   'False
  72.             Strikethrough   =   0   'False
  73.          EndProperty
  74.          Height          =   432
  75.          Left            =   2508
  76.          TabIndex        =   8
  77.          Tag             =   "CompanyProduct"
  78.          Top             =   768
  79.          Width           =   2940
  80.       End
  81.       Begin VB.Label lblPlatform 
  82.          Alignment       =   1  'Right Justify
  83.          AutoSize        =   -1  'True
  84.          Caption         =   "Platform"
  85.          BeginProperty Font 
  86.             Name            =   "MS Sans Serif"
  87.             Size            =   15.6
  88.             Charset         =   0
  89.             Weight          =   700
  90.             Underline       =   0   'False
  91.             Italic          =   0   'False
  92.             Strikethrough   =   0   'False
  93.          EndProperty
  94.          Height          =   384
  95.          Left            =   5724
  96.          TabIndex        =   7
  97.          Tag             =   "Platform"
  98.          Top             =   2400
  99.          Width           =   1284
  100.       End
  101.       Begin VB.Label lblVersion 
  102.          Alignment       =   1  'Right Justify
  103.          AutoSize        =   -1  'True
  104.          Caption         =   "Version"
  105.          BeginProperty Font 
  106.             Name            =   "MS Sans Serif"
  107.             Size            =   12
  108.             Charset         =   0
  109.             Weight          =   700
  110.             Underline       =   0   'False
  111.             Italic          =   0   'False
  112.             Strikethrough   =   0   'False
  113.          EndProperty
  114.          Height          =   300
  115.          Left            =   6108
  116.          TabIndex        =   6
  117.          Tag             =   "Version"
  118.          Top             =   2760
  119.          Width           =   900
  120.       End
  121.       Begin VB.Label lblWarning 
  122.          Caption         =   "Warning"
  123.          Height          =   195
  124.          Left            =   300
  125.          TabIndex        =   3
  126.          Tag             =   "Warning"
  127.          Top             =   3720
  128.          Width           =   6855
  129.       End
  130.       Begin VB.Label lblCompany 
  131.          Caption         =   "Company"
  132.          Height          =   255
  133.          Left            =   4710
  134.          TabIndex        =   5
  135.          Tag             =   "Company"
  136.          Top             =   3330
  137.          Width           =   2415
  138.       End
  139.       Begin VB.Label lblCopyright 
  140.          Caption         =   "Copyright"
  141.          Height          =   255
  142.          Left            =   4710
  143.          TabIndex        =   4
  144.          Tag             =   "Copyright"
  145.          Top             =   3120
  146.          Width           =   2415
  147.       End
  148.    End
  149. Attribute VB_Name = "frmSplash"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Option Explicit
  155. Private Sub Form_Load()
  156.   ml_UpdateControls
  157.   lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  158.   lblProductName.Caption = App.Title
  159. End Sub
  160. Private Sub ml_UpdateControls()
  161.   lblCompany.Caption = ml_string(34)
  162.   lblCompanyProduct.Caption = ml_string(30)
  163.   lblCopyright.Caption = ml_string(35)
  164.   lblLicenseTo.Caption = ml_string(28)
  165.   lblPlatform.Caption = ml_string(31)
  166.   lblProductName.Caption = ml_string(29)
  167.   lblVersion.Caption = ml_string(32)
  168.   lblWarning.Caption = ml_string(33)
  169. End Sub
  170.